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Facility: Executive , Hardware fault handling 


Abstract: POWERFAIL contains the code necessary to save the volatile state 
necessary for restart when power is restored. POWERFAIL also 
contains the code to restore this state and continue operation 
upon power restoration. 


Environment: MODE=Kernel , IPL=31 
Author: RICHARD I. HUSTVEDT, Creation date: 15-JUN-1978 
Modified by: 
v03-016 $RBO0125 Steve Beckhardt 06-Jul-1984 
Clear distributed deadlock detection bitmap expiration 
timestamps whenever system time is changed to prevent 
false deadlocks. 


v03-015 wMc0001 Wayne Cardoza 03-May-1984 
Add support for mount verification of disks. 


V03-014 DWT0208 David W. Thiel 28-Mar-1984 
Call connection manager on power recovery. 


v03-013 KDM0093 Kathleen D. Morse 6-F eb-1983 
Added new powerfail codes (16 and 17) for MicroVAX II. 


v03-012 ROW0203 Ralph 0. Weber 5-AUG-1983 
Change EXESINIT_DEVICE to use the new device driver 
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Include files: 
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controller and unit initialization routine callers, 

foc oy ree eet and IOCSUNITINIT. These routines provide a 
gone stant, system-wide interface to the device driver 
nitialization routines. 


TCMO004 Trudy C. Matthews 03-A ug- 1983 
Add a new error halt Yeunchesh. defined for the 11/785 
processor. 


KDM0054 Kathleen D. Morse 11-Jul- tees 
Make the Spyneppencens IPR saving be a as close 
the etort oF fhe power-down r ne as sible for the 


Q-bus hange use of PRS$_TODR to XESREAD 
Move IPR PME inte the cpu-dependent cunireotert routines. 
ROW0188 Ralph 0. Weber 30-APR-1983 
Fix broken braches to ERL$ routines 
TCMO003 Trydy C. Matthews 22-Feb-1983 
Add two new error halt bugchecks (defined for 11/790 
processors). 
KTA3024 Kerbey T. Altmann 31-Dec-1982 
Call new routine to do device searching. 


TCMO002 rudy C. 16-Dec-1982 
Initialize R2 sohens v etsten” CONSSENDCONSCHD® 


TCA0001 Trudy C. Matthews 10-Nov-1982 

Call CPU-dependent routine CONSSENDCONSCMD to send 
“clear warm start’’ command to the console. Correct bug 
in code that drops IPL  ¥ let rap would wt pquer terse occur; 
if one did occur ae saved PC/PSL woul utpg out two 
registers saved on the stack. Also, drop IPL to IPL$_POWER-2 
instead of IPL$ POWERS] to allow tapoad ine owerfail 


interrupts to occur. (Thanks to Ruth Goldenberg.) 


KTA3018 erbey Altm 03-Nov-1982 
Removed adapter ierelatizacton: to SYSLOA. 
KDM0002 Kathleen D. Morse 28-Jun-1982 


Added SDCDEF and SDEVDEF ° 


093 Ralph 0. Weber 4-JUN-1982 
iB Ore NIT _pEVICE vcervert cat for call to unit 
nitial izatt on to insure that R3 has primary CSR address 
has secondary Fa address ben” initial 
Me is stored in the DDT. 
pais change is d stributed as part of SYS.EXE ECO 15 in 
ersion . 


zation routine 
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pt stack not valid 


3; Double error restart code 
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; Halt restart code 
ith IS=1 restart code 


al vector code 
; No user WCS restart code 
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v04-000 EXESPOWERFAIL = POWER FAIL INTERRUPT SER ~$Fb 382 88:28:82 LOYS SRCIPOWERFAIL MAR: 1 . (1) ve 
189 ‘ ~SBTTL EXESPOWERFAIL = POWER FAIL INTERRUPT SERVICE ROUTINE 
161 ; 
1 § ; Functional poser es tens 
165 ; XESPOWERFAIL is entered with IPL=31 as a result of a power fail 
164 ; nterrupt. The objective is to save the critical volatile machine 
! 23 state as quickly as possible and halt the machine. 
189 ; oonh ine Sequence: 
198 3 owerfail interrupt through Vector at offset 12 in the SCB. 
8 129 ; Input Parameters: 
171 ; (SP) = PC at time of powerfail interrupt 
Bop 7 3 4(SP) = PSL at tiem of powerfail interrupt 
B88 174 ; Implicit Inputs: 
000 175 ; ALL registers and proceseor registers. 
4 178 : Restart Parameter Block located via EXESGL_RPB 
0000 178 | 
4 173 -LIST MEB ; Show macro expansions 
0000 181 -ALIGN LONG ; Exception and Interrupt routines must 
0000 1 ¢ ; be longword aligned 
0000 183 EXESPOWERFAIL:: ; 
CF 05 Q000 184 TSTL W*EXESGL_PFAILTIM ; Have we restarted yet? 
53 12 Bae 185 BNEQ ; No, wait for restart 
8F BB 0006 186 PUSHR #*M<RO R1,R2,R3,R4,R5,R6~-R7,RB,RI,R1I0,R11 AP,FP> ; Save all register 
EF 16 OO0A 187 JSB EXESREGSAVE ; Save CPU-specific [PR's 
CF oO Bes 1 8 MOVL W*EXESGL _RPB,RS ; Get address of restart parameter block 
10 DB 001 1 MFPR #PRS_PCBB,RPBSL_PCBB(RS): Save physical address of current pcb 
11 DB OO1A 190 MFPR #PR$_SCBB,RPBSL_SCBB(R5); Save physical address of System Control BL 
OC DB OOIF 191 MFPR #PRS$_SBR RPB$L_SBR(R5S) : Save payencet address of System page table 
15 DB 0024 138 MFPR #PRS-SISR RPBSC_SISR(RS); Save software interrupt summary register 
OD 0B 00 9 19 MFPR = #PRS-SLR,RPBSL_SLR(RS) : Save SPT Length 
EF 16 OO2E 194 JSB EXESREAD_ TODR ; Read time-of-day processor regteter 
50 00 8 3 192 MOVL RO,W*EXESGL_PFAILTIM 3: Save time of day at power fai 
0 ; 139 ; Save all other volatile processor registers on the current stack (ISP) 
00 bB 6 9 199 MFPR #PRS_KSP,=-(SP) ; Save kernel stack pointer 
01 DB 003C 00 MFPR #PRS_ESP,-(SP ; Save exec stack pointer 
0 dB F 1 MFPR #PRS_SSP,-(SP) ; Save supervisor stack pointer 
0 DB tg MFPR #PRS_USP,-(SP ; Save user stack pointer 
1 0B 4 MFPR #PRS_ASTLVL,~(SP) ; Save AST level 
08 DB 0048 MFPR = #PRS"POBR,-(SP) : Save PO base register 
Ry DB 4B 5 MFPR PR$_POLR,-(SP) 3; Save PO Length register 
A 0B ef $ MFPR #PR$_PIBR,-(SP) 3; Save Pl base register 
0B OB 2) MFPR #PRS_PILR,-(SP) ; Save P1 length register 
b8 3 : ALL volatile machine state necessary for restart has now been saved. 
Bee 19 3; At this point the interrupt stack contains: 
4 1 : toeceor ocean Se eam meme me mote + 
18 5 H PILR t 0-24(SP) 
54 14 : $ eww moeoooeeeeeeecesceces + 
54 15 ; ' PIBR ' 
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START = Restore state and restart -SEP-1984 Heys. SRCIJPOWERFAIL.MAR; 1 
O38 if nae -SBTTL EXESRESTART = Restore state and restart after power on 
6 8 6 3 apes £ Pesce lpg ions 
p28 “i 3 given control by the respect ROM bootstrap if it 
58 4 ; - cdeternined that memory content is valid the checksum of the 
058 79 ; restart routine worse re and the restart flag in the Restart Control 
058 o 3 Block is enabled. rial entry to EXESREST at” is made with memory 
058 1 3 management disabled. Tpke 1 with the stack pointer set to the high 
bpee § 3 end of the page containing the restart control block. 
0058 4; Calling § Sequence 
bee 5 3 SRPBSL _RESTART=*X200(SP) 
$38 Tose peg be os f RPB+*x200 
3 - ress o “x 
0058 89 ; 
S38 gap I 
00009008 3 -PSECT $AAEXENONPAGED ,PAGE : Must be in page ot igned psect 
4 93 EXESRESTART:: ; Restart entry point 
55 FE0O ce 9E 000 94 MOVAB me hd: RS : Compute base of RPB 
54 OOAC CS DO 0005 295 MOVL  RPBS$L_SBR(R5S),R4 ; Get base of SPT 
OC 54 DA OOOA 96 MTPR 8 : Set SPT bese register 
OD 0088 CS DA 000D 297 MTPR  RPBSL_SCR(RS),#PRS_SLR : and Length register 
11__ 0O0B0 C5 —s—iODA Bots 98 MTPR aeeet ~$cBB (RS) #PRS_ SCBB; Gestece pointer to System Control Block 
53 50 A5 DO 001 $99 MOVL RPBSL-SVASPT(R as). R3~ rtual address of 
51 FFCOOOO0'8F p00 00186 00 MOVL EeSaEnnGg Tiny otaoooobe a N of EXESRESTART 
50 DB AF 9E 0022 301 MOVAB i5er ; Physical wo EE of EXESRESTART 
ee eS of 78 0026 8s ASHL : tokeert to physical b page number 
51 0 C2 0028 0 SUBL ; Compute delta VPN-PF 
53 6341 DE 00 : 04 MOVAL taller, R3 : Now compute base address for POPT 
50 D6 00 05 INCL ; Get PFN+1 of pate Salsa for POLR 
09 50 DA 0034 06 MTPR nd. 4p a _POLR : Set dummy PO Length 
08 53 + #4ODA Besa 07 MTPR $-POBR ; Set base for PO page table 
56 0O0A4 C5 DO OO3A 08 MOVL RPBSL Re SPCR). R6 : Get Saved interrupt stack pointer 
OO3F 309 INVALID 3; Clear translation buffer 
He 00 DA O03F MTP #0,S*#PRS_TBIA 
. oF A 944 310 MTPR #1 FPRS_A MAPEN ; Enable memory management 
0000004B8'9F 17 004 11 JMP avi0s ; Set PC to system space 
26 56 dO 0048 \¢ 10$: MOVL R6,SP : Now restore correct Stack pointer 
0 25 » Boag i cor AP -#RESTRT_ POWERUP ; 2. this a power recovery? 
5E O0000000'EF 00000200 8F (C1 Boe 12 ryt #313 ERESGL_ RPB,SP 3 Use ond oF restart pe e ag stack 
: Else switch on restart code 
003 i$ g0$.- 3; 4 => Interrupt stack not valid 
SF 8 0$,- ; 5 => CPU double error halt 
OSF 1 40$,- : 8 => Halt instruction 
OSF 0 50$,- ; 7 => Illegal I/E vector 
OSF 1 1 : § => No user WCS 
OSF § 0$,- ;.9 => Error peng ine pn on Halt 
OSF +t ta 310 => CHM on al 
SF 4 0$,- 311 => CHM vector <1: 03 NE. 0 
z 5 100$,- ie => SCB physical read error 
F § 110$,- 315 => WCS error correction failed 
Hi \¢ $,- 314 => CPU ceased execution 
F 8 150$,- 315 => Processor clocks out of synch 
5F 140$,- 316 = > ACV or TNV during mchk exception 


———— 
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START = Restore state and restart atone 9 90:28: 4 (CUSYS.SRCJPOWERFAIL.MAR;1 ° (1) 
F 0 150$,- 317 = > ACV or TNV during kstk not valid 
03 334 > LIAIT=ARESTRT_IVLISTK : ° 
0D' 04 SC AF 3 means CASEW AP, #RESTRT_IVLISTK, S*#<<30001$-30000$>/2>-1 
0020! . SIGNED_WORD : $- $ 
024' . SIGNED" WORD $- $ 
028' ~SIGNED-WORD  40$- $ 
0 % 069 ~SIGNED-WORD 50$- $ 
030' 068 «SIGNED -WORD g0$- 00$ 
00 4* 006D » SIGNED -WORD $-30000$ 
0038' GF » SIGNED-WORD : $- $ 
99 ¢ 0 » SIGNED-WORD $- $ 
46" 007 -SIGNED-WORD  100$- Os 
0044: 907 ~SIGNED-WORD  110$-30000$ 
048' 007 » SIGNED-WORD 1g $-30000$ 
004C' 9079 -SIGNED-WORD  130$- 90008 
0050° 0078 ~SIGNED-WORD  140$-30000$ 
0054" 007D ~SIGNED-WORD 150$-30000$ 
007F 30001$: 
OO7F 332 BUG_ CHECK UNKRSTRT,FATAL ; Unknown restart code 
FEFF OO7F ; @XFEFF 
0004" 0081 “1IF IDN <FATAL>,<FATAL> , .WORD BUGS$_UNKRSTRT!4 
vide 0083 333 20$:  BUG_CHECK IVLISTR FATAL : Invalid interrupt stack (4) 
0004" 0085 “LIF IDN <FATAL>,<FATAL> , .WORD BUGS IVLISTK!4 
0087 334 30$:  BUG_CHECK DBLERR,FATAL — ; Double error halt (5) 
FEFF 0087 .W “XFEFF 
0004" 0089 .IIF IDN <FATAL>,<FATAL> , .WORD BUG$_DBLERR!4 
0088 335 40$: BUG_CHECK HALT FATAL ; Halt instruction (6) 
FEFF 008B .WORD “XFEFF 
0004" 008D .IIF IDN <FATAL>,<FATAL> , .WORD BUGS_HALT!4 
OO8F 336 50S: BUG_CHECK ILLVEC, FATAL :; Illegal Vector code (7) 
FEFF OO8F .WORD “XFEFF 
0004" 0091 LIF IDN <FATAL>,<FATAL> , .WORD BUGS_ILLVEC!4 
0093 337 60$: BUG_CHECK NOUSRWCS,FATAL ; No user WCS for vector (8) 
FEFF 0093 .WORD “XFEFF 
0004" 0095 “IF IDN <FATAL>,<FATAL> , .WORD BUG$_NOUSRWCS !4 
0097 338 70$:  BUG_CHECK ERRHALT,FATAL ; Error pending on halt (9) 
FEFF 0097 .WORD “XFEFF 
0004" 0099 “LIF IDN <FATAL>,<FATAL> , .WORD BUG$_ERRHALT!4 
ete ote 339 80S: BUG_CHECK . CHMONI S , FATAL :°CHM on interrupt stack (10) 
0004" 009D “LIF IDN <FATAL>,<FATAL> , .WORD BUGS$_CHMONIS!4 
OO9F 340 90$:  BUG_CHECK CHMVEC,FATAL — ; CHM vector <1:0> .NE. 0 (11) 
FEFF OO9F .WORD “XFEF 
0004" oA “LIF IDN <FATAL>,<FATAL> , .WORD BUGS_CHMVEC!4 
sere pAe 341 100$: BUG_CHECK Sconee nn FATAL ; SCB physical read @rror. (12) 
j604" 0A5 “LIF IDN <FATAL>,<FATAL> , .WORD BUG$_SCBRDERR!4 
rere 4 342 110$: BUG_CHECK te WCSCORR FATAL 3; WCS error correction failed (13) 
0004" 00A9 “LIF IDN <FATAL>,<FATAL> , .WORD BUGS$_WCSCORR!4 
cere GOB 343 1208: BUG_CHECK CPUCEASED. FATAL ;"CPU ceased execution (14) 
0004" OOAD “LIF IDN <FATAL>,<FATAL> , .WORD BUGS_CPUCEASED!4 
AF 344 130$: BUG_CHECK QUTOFSYNC,FATAL ; Processor clocks out of synch (15) 
FEFF OOAF .WORD “XFEFF 
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EXESRESTART = Restore state and restart ~$Fbr 382 83:28:82 LOS SRCIPOUEREAIL MAR: 1 na d) 
0004" B elLIF IDN <FATAL>,<FATAL> , .WORD UGS_OUTOF SYNC !4 
: 345 140$: OUS_CHECK - acer igncen ; ACV or TNV during mchk exception (16) 
6600" B IF DIF <CONT>,<FATAL> , .WORD BUGS_ACCVIOMCHK 
Bf 346 150$: BUG_CHECK . ACCVIOKSTK ; ACV or TNV during kstk not valid (17) 
600" 089 9 LIF DIF <CONT>,<FATAL> , .WORD BUGS_ACCVIOKSTK 
0BB 48 
er $3 POWERUP: ; 
sie 2 : none of the interrupt stack area containing saved state will be overwritten 
0BB ; during the restart process in case another power failure occurs. The restart 
0BB 55 ; procedure only reads the saved state and re-writes volatile registers so 
pes 22 : that it can be repeated without harm. 
50 03 00 0088 2$ ‘ MOVL #CONSC_CLRWARM,RO ; Console function=clear warm start flag. 
52.4 per 5 CLRL R ; Signal no return data expected. 
QOOOOO00'EF 16 O0C 58 JSB CONSSENDCONSCMD ; Send command to console. 
51 Q0000000'GF 00 Bace 59 MOVL G*EXESGL_RPB,R ; Get virtual address of RPB. 
OC Al 01 CA 6 CD 36360 BICL  #1,RPBSL-RSTRTFLG(R1) ; Clear flag to re-enable warmstart. 
OOAS C1 D5 00D1 61 TSTL RPBSL_ISP(R1) ; Test save spserrugt SP from RPB. 
oc 12 Bap3 6¢ BNEQ 10$ ; Branch if valid ISP. 
00D7 64 : Interrupt stack pointer field in RPB is 0. This indicates that the 
00D7 65 ; the powerfail routine was not able to complete successfully, and that 
ta 4 68 : it was unable to save the software state of the machine. 
51 00000200 8F (C1 0007 rt: ; gg al al 3 yee end of RPB for stack space. 
- ; Fatal error. 
td 70 3 STATENTSVD FATAL 
FEFF OODF ~WORD “XFEFF 
0004' Beet 71 108 LIF IDN <FATAL>,<FATAL> , .WORD BUGS_STATENTSVD!4 
15 00B4 C1 DA te 373 ; MTPR RPBSL_SISR(R1) ,APRS$_SISR; Restore software interrupt state. 
10 QOOA8 C1 DA O0E8 7 MTPR RPBS$L_PCBB(R1) ,#PR$_PCBB; Restore pe*pser to current PCB. 
0B 86 DA OOED 37% MTPR = (R6)+,#PRS_PILR ; Restore P1 Length register 
OA 86 ODA ore 75 MTPR (R6)+,#PRS$_PIBR ; _and P1 base register 
09 86 DA OOF 76 MTPR (R6)+,#PR$_POLR ; Restore real PO Length register 
% 86 DA Brg 77 MTPR (R6)+,#PR$_POBR ; _and PO base register 
1 86 DA OOF 78 MTPR (R6)+,#PRS_ASTLVL ; Restore AST Level 
03 86 DA OOFC 79 MTPR (R6)+,#PR$_USP ; Restore user mode stack pointer 
02 86 DA OOFF 80 MTPR (R6)+,#PRS_SSP ; Restore supervisor mode stack pointer 
4 36 DA 8} g #4 MTPR (R6)+, #PRS_ESP ; Restore executive mode stack pointer 
0 6 DA 01 ¢ MTPR (R6)+,#PRS_KSP ; Restore kernel mode stack pointer 
QOOO0000'EF 16 } ; ? JSB EXESREGRESTOR 3; Restore CPU-specific registers 
10E 5 ; ALL saved Machine state has now been restored. Renable SBI and CRD error 
ie § ; interrupts, re-initialize interval timer and Scan device data base to 
10E 3; set powerfail status for all units. All controllers and devices are then 
43 83 3 re-initialized. 
56 OD 10¢ : 7 PUSHL 6 ; Save updated “stack pointer” 
OOOO0000'EF 16 Q11 9 JSB EXESINIPROCREG : Initialize processor registers 
116 38 3 or error detection and start interval 
119 9 3 timer. 
11 94 TIMERESET: : 
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v04-000 EXESRESTART = Restore state and restart -SEP-1984 §9:28:8¢ LEYS SRCIPOWERFAIL MAR: 1 . (1) Ta 
OOOOOOO'EF 1 116 95 JSB EXESREAD_TODR ; Get current time of da 
0000' CF oboe ef 5h C Vi 38 ADDL3 RO-W"EXESGL PWRINTVL W*EKES L_PWRDONE ; Compute expected done 
3; time 
0000 CF 8 B088 ce C 124 98 SUBL3 W*EXESGL_PFAILT M,RO,W*EKESGL PFATIM i Get duration of power fail 
oe i © 12C 99 sus W*EXESGL TODR,R 3 Compute time since boot 
50 1F 1 F 0131 400 EXTZV #1,#51 a R 3 Unsigned diy ige by 
50 00 50 (00030040 8F 7A 0136 407 EMUL  #<100*100622>,R0,#0,R0 : Convert to 100 nanosecond units 
5 9000 CF co 13F 4 ; ADDL  W*EXESGQ_TODCBASE,RO =; Compute current system time 
1 ‘sn’ 3 144 4 ADWC W*EXESGQ TODCBASE+4,R1_ ; 
0000' CF 0 D 0149 404 MOVQ RO,W*EXESGQ SYS ; Set as current system time 
56 OQOOO'CF 7E 014 405 MOVAQ W*LCKS$GQ_BITMAP_EXP,R6 ; Get address of deadlock expiration 
$6 7¢ 1 188 CLRQ Re 3* ; timestamps and reset them 
7C 1 4 CLRQ (R6) 
56 Q000'CF 4 15 408 MOVAB WAS NESGL.FOFL RG ; Get pointer to timer queue head 
57 666—Ci«iOD 13 409 MOVL (R6),R ; Point at head of timer queue 
57 38 D1 O1SF 410 10$: CMPL 8 R? : Check for end of timer queue 
1 13 0162 411 BEQL 30$ 3; Branch yes 
1C AZ) «51 = =—DT 0164 tig CMPL R1, TQESQ_TIME+4(R7) ; Check high order bits for past due 
OC 1F 0168 41 BLSsu 208 ; No try another 
06 1A O16A 414 BGTRU 15$ 3; Past due, convert entry 
18 A?) 3650) «6—Dl «60016C)—O 415 CMPL RO, TQESQ_TIME(R7) 3 aly order bits equal, check low order 
04 «=1F 0179 416 BLssu 20 ; Not yet due 
18 A? «6500S 7D SCéQ7 417 15$: mMOVa RO, TQE$Q_TIME(R7) ; Set new expiration time 
57 67 0 0176 418 20$:  MOVL (R?),R7 : Flink to next entry 
E64 11 017 419 BRB 10$ 3 
Bee 420 30$: 3 
QOOOOOOO'EF 16 O17B 421 JSB ERLSWARMSTART 3 Log power recovery in the error log 
Q00000000'GF 16 0181 4 § JSB G*CNXSPOWER_FAIL 3; Inform connection manager of power recover 
0187 4 ; (This is an RSB if CLUSTRLOA is not Loade 
0187 424 RESTARTIO: : 
5D SE 00 0187 425 MOVL SP,FP ; Save current stack pointer 
00000000'GF 16 O18A 4 § JSB G*EXESSTARTUPADP : Call adapter initialization 
5C D4 019 4 LRL AP ; Set up to 
5¢ 7 a 19 428 MNEGW #1,AP : Initialize all controllers 
B49 195 4 3 BSBB ss EXE SINIT_DEVICE : Call controller init routine 
5E 5D 00 $197 $3) MOVL FP,SP ; Restore stack pointer 
019A 432 SETIPL #IPL$_POWER : Block power fail interrupt 
12 #1F DA o190 os MTPR ~ #IPL$_POWER,S*#PRS_IPL 
19D 434 ; Drop IPL here to allow any ged pevgctait interrupts to occur. This 
B13e 435 ; is because we have been running at IPL$_POWER, and if another powerfail 
19D 4 § ; interrupt has occurred, it will be taken as soon as this routine REls. 
19D 437 ; There would be no guarantee how much time the power down routine has left to 
19D 4 8 3; save the software state. However, if we dro TPL BEFORE enabling subsequent 
19D 439 ; power fails, we allow any impending powerfail interrupt to occur; it will 
19D 440 ; essntially be ignored by the power down routine. The power up routine will 
19D 441 ; then be re-executed. And by the time we REI we are ogein guaranteed an 
138 Pek ; adequate amount of time to execute the power down routine. 
19D 444 SETIPL AT a Le ig ; Allow impending powerfail interrupts 
12 1D DA 019D MTPR ~ #<IPL$_POWER-2>,S*#PR$_IPL 
1 Q1A0 445 NOP ; to occur before enabling another 
1 Q1Al “8 NOP 3; execution of power down routine. 
1A 44 SETIPL #IPLS_POWER ; Back to guaranteed amount of time. 
12 1F DA OIA MTPR ~ #IPL$_POWER,S*#PRS_IPL 
5E 8E DO OIA 448 MOVL (SP)+,SP ; Set up to point to saved registers 
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449 MOVL G*EXESGL_RPB,F et ad res of RPB. 

4 9 POPR #*M<RO,RT_R 4 R4,RS5, RG: R7,RB,RY, R11, AP> 

4 CLRL = W*EXESGL_PFAILTIM * ; Tashi Subsequent power fail 
4 ; CLRL RPBsL "TSP. (FP) 3 indicete. software state not saved. 
45 POPL 3; Restore FP. 

$22 REI ; Return from powerfail restart. 
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ialize device driv ae 9 :28:5¢ SYS. SRCIPOWER FAIL.MAR;1 o (1) 


-SBTTL EXESINIT_DEVICE = Initialize device drivers 


V EX 


+ 
EXESINIT_DEVICE = Call device drivers at controller and unit initialization 
INPUTS: 
Low order word: 
AP = -1 => Do initialization for all devices on all adaptors 
AP >= 0 => Only initialize for devices on this TR Level 
Hi order word: 
AP = -1 => Called from INIT = No powerfail 
AP = 0 => Called from POWERFAIL/ADAPTERR (UBA power fail) 
OUTPUTS: 


Device controller and units initialized 


Sete Ge Ge Ge Ge Ge Sete Se Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


EXESINIT_DEVICE:: 


COOCOCO TT HHH MNMMMMMMMMMOOOVIOOOOOOOCOWWWWVIVIVOIVIOITWIOIWIIOWIOOIIOIIOOw - 


OD NAM IMO] DB PW OLMNMNO POCA "DOU PNY TN nnn gO 


———§ ~QOODOOOOO0 00000 OO OOO 0909 09 69 09 09 09 09 09 SII NI NII NS NNSA AAA AAOAAAOUIUIN «=O 
WRI OOD NAN WIN 9 OD NA UNE 9 OO NA UNE WN 0 OD NAME WN S(O ODNOUE WH OOOnN MZ 
r*] 
@ 
. 


DIRS RD PI a a a 8 ss 2 ts is ons 
eee aaa ala alate at ot ot ot ot oe ae ee ae a UMMM eee 


SOOOOOOOSOOOOOOOOOOOCOCOOOOCOOOOOSCOOOCOCOCOOOCSOOOOCOOOOOOOOOOOOOOOoOO 


5B D4 CLRL R11 3: Initial condition 
00000000'GF 16 DDBLOOP: JSB G*IOCSSCAN_IODB ; Scan the 1/0 data base 
01 50 Fe BLBS RO,5$ : Found another UCB 
S ; Thats all, return 
5¢ D5 5$ TSTL AP 3; Check if —er mode 
06 18 BGEQ 7$ 3 Lh skip next 
QO000000'GF 16 JSB G* 1IOCS$RELOC Make offsets absolute opesen addresses 
5A 4 DE 7$ MOVAL DDBSL sEBCUTBSL =LINKCRI1, R10 Get address of first UCB address 
5 D4 CLRL R8 lear last CRB address 
5A 30 AA 00 10$: MOVL UCBSL_LINK(R10),R10 : ae. ederess of next ue 
_ 3 BEQL D If ger no more for this DDB 
F5 38 AA 14 «€0 BBS S“#DEVSV_MBX ,UCBSL_ DEVCHARER Fe 16s": ; Branch if mailbox 
S Check to see if we must init all devices on all adaptors or on just 
; one specific adaptor. 
54 24 AA 00 MOVL Uceet _CRB(R10) ,R4 ; Point to CRB 
~~ 8 TSTW 3 i‘. o ares. init all 
oc 19 BLSS 15s grit 
50 38 A4 00 MOVL CRBSL_INTD+VECSL _ADP(R4) ; R piles « to ADP : 
7 1 BEQL 10$ : No. adaptor for this ‘‘device” 
OC AO . CMPW AP ,ADP$W_TR(RO) ; TR's match 
—i 12 BNEQ 108 : No, look for others 
ss 6«68s 15$: TSTL AP 3; Check if POWERFAIL mode 
4 19 BLSS 17$ ; No, do not set it 
64 AA 20 Ag BISW  #UCBSM_POWER,UCBSW_STS(R10O) ; Set power failed status 
4 O 17$: CMPL RG, RB : Is this the same CRB? 
E Is BeEaL 40s 40 ; Branch if same CRB. 
58 4 OD MOVL R4, RB : Save new CRB address. 
1 04 CLRL R1 3; We have no extra CSR info 
3; (SYSGEN does). 
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v04-000 EXESINIT DEVICE = Initialize device driv g- set} 99: 28:5¢ YOYS SRCIPOWERFATL MAR; 1 . 18, vO 
bo0oe0p9" BRS 0 1 JSB Glogs TRLINIT ; Do driver controller initialization. 
4150 € 1 1 BLBC RO ; Branch if CSR test failed. 
55 A D 1 18 40$ MOVL R10, 8 : Setup UCB address 
0000 00° 8 1 1 1 JSB G*1OCSUNITINIT : Do driver unit initialization. 
& 1 1 BlTw auce M HEA eat aa 
64 A 1 yee W_STS(R5) ; Interrupt or timeout expected? 
13 BEQL : If eql then no 
64 ¢ oo 1 BICW #UCBSM_INT,UCBSW_STS(R5); Clear interrupt expected 
64 A AB 8 § BISw #UCBSM_TIM USN .STS«RS); Set timeout exr<zcted 
6C AS 4 ¢ ; CLRL —sUCBS$L_BUETIM(RS) + Now 
F 5 ; Look for busy, non-MSCP disks phat are not in mount verification. Clear 
F § ; volume=valid and set mount-verification-pending so that restarted 1/0s will 
F ; fail and the volume will be revalidated. Non-busy disks are handled 
; 3 : independently. 
40 oH at F ? CMPB ucese PEVCLASS CRS) «= ; Make sure it is a disk 
A6 1 ; BNEQ 10$ ~ 
Of E BBC #DEVS$V_FOD,- :; Not file oriented 
Al 38 A 4 UCBSL_BEVCHAR(RS) ,10$ 
05 €0 A 5 BBS #DEV$V_SQD,- ; Sequential device 
9C 38 AS C $ UCBSL_BEVCHAR(RS) ,10$ 
05 €0 F BBS #DEVSV_MSCP,- ; MSCP disks are handled independently 
97 3¢ AS 0241 : UCBS$L_BEVCHAR2(RS), 10$ 
0 E2 0244 BBSS #UCBST_MNTVERIP,- ; Mount verification already in progress 
92 64 A 0 46 40 UcBst STS(R5),10$ 
13 £2 024 41 BBSS #uCBS? ANT VERPND - ; Mark it mount verification pending 
00 64 a5 48 4g UCBSL_STS(R5) ,50$ 
08 E5 4 43 508 BBCC #UCBSV_VALID,- ; Cause 1/0 to fail 
00 64 A 5 44 UCBSW_STS(R55,51$ 
FF85 = 31 $2 $2 51$: BRW 10$ 3; Next unit 
59 D4 3 23 70$ CLRL Rg ; fap CRB to force CRB search 
64 AA 10 AA 0258 548 BICW  #UCBSM_ONLINE ,UCBSW_STS(R10) : Set unit offline 
FF7C 83=._: 3 5¢ 549 BRid 10$ 3; Continue search 


Oe eR nit EXE ower Lint jest HANDLER 19-§ tae 9 9: 73: $f yaniv Macro V04-00 Page 13 


= Check for reasonable int SYS.SRCJPOWERFAIL.MAR;1 (1) 
-SBTTL EXESPWRTIMCHK = Check for reasonable interval since power recovery 


es 

; Functional oe tierRs’ my 
EXESP CHK is called bY driver atte bag iy code to check for 

a suffic qnt 19 erval since power r scovery te ect devices to be 

ready age the return from rs PWRT MCHK. indicates that the 

reasona se "intery al has not ret elapsed, the device dr wer may elect 

to wait for a wht le using ext SPWRTIMCHK check the time. 


apie Sequenc 
$B8/JSB EXESPWRTIMCHK 


=. Bete Se Se Se Se Sete tee te 


SN NEN SAA A AAA AAA AIIM 


MEWUIN (OOO NAUE UO "CO OONOUE ru 


Output porenecery) 
RO = Low bit clear if interval expired. 
EXESPWRTIMCHK: : 3 
QOOOOO00'EF 16 JSB EXESREAD_TODR ; Get current time of day 
7E dO MOVL RO,-(SP) ; Save it temporarily 
D4 CLRL 3; Assume interval expired 
8E OO00'CF 01 CMPL W*EXESGL_PWRDONE,(SP)+ ; Check for time expired 
18 BLEQU§ 10% 3; Exit with low bit clear if expired 
+ INCL RO 3; Else set low bit of RO 
0 10$ RSB 3 
0 ~END : 
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AX/VMS Macro Vv04-00 
SYS.SRCJPOWERFAIL.MAR;1 


= 0000000C $_KSP = 
BuGe Pete ECVtOKS Tx eeeeeere =X 4 PRS_MAPEN = 
UGS_ACCVIOMCHK eeeeeere =X 4 R$_POBR = 
Bue cere HMONIS eeeeeere 8X 4 PRS$_POLR = 
BUGS_ CHMVEC eeerenee =X 4 PRS$_P1BR s A 
BUGS$_CPUCEASED eeeeeere =X 4 PRS_PILR = 
BUGS_DBLERR tererere =X 4 PRS$_PCBB Fa 1 
BUGS_ERRHALT eeeerere = YX 4 PRS_SBR s 0 
“HALT eeeeeeee =X 4 PR$_SCBB s 1 
“ILLV eeeeeere =X 4 PRS$_SISR 2 1 
BUGS_IVLISTK eeeeenee =X 4 PRS$_SLR = D 
G$_NOUSRWCS teeeeeee x 4 PR$_SSP = 9 g 
BUGS ~ =QUTOF SYNC teeenere = =X 4 PRS_TBIA = 
BUGS_SCBRDERR eeeeeree =X 4 PRS$_USP = 000000 ; 
BUGS— =STATENTSVD eeeeneee =X 4 RESTARTIO 00001 
BUGS$_UNKRSTRT teeereee §=6X o RESTRT_CHM z $ OOA 
BUGS WCSCORR teenenee =X 4 RESTRT_DBLERR = 005 
CNXSPOUER FAIL eeeerere X04 RESTRT_ERRHALT = 00000009 
CONSC_CLROARM = 00000003 RESTRT_HALT = 00 43 
CONSSENDCONSCMD eeeeeere XK 04 RESTRT_ILLVEC = 0000000 
CRB$L_INTD = 00000024 RESTRT_IVLIST = 00000004 
DC$_DISK = 00000001 RESTRT_NOUSRWCS = 0000000 
DoBSL_UC = 00000004 RESTRT_POWERUP = 0000000 
DDBLOOP 0000011 04 RPBSL_TSP = 00 
DEV$V_FOD = Q000000E RPBSL_PC = 00 
DEVSV_MBX = ieee RPBSL_RSTRTFLG = 00 C 
DEVSV_MSCP = 00000005 RPBSL_SBR = 00 
DEV$V_SQD = 00000005 RPBSL_SCBB = 00 B0 
ERLSWARMSTART eeereeee X04 ares. ath = 00 4 
XESGL_PFAILTIM terereee = X 03 RP 2 38 | 
EXESGL_PFATI teeeereer§ = X 04 RPBSL SVASPT = 00 
EXESGL_PWRD 00000000 0 TIM RESET 0 1 
EXESGL—PWRINTVL 00000004 RG TQE$Q_TIME = 00 1 
=RPS tkereree x UCBS$B_DEVCLASS = $88 4 
EXE TODR tereneee YX 4 UCBSL_CRB = 000 4 
“TOFL tererere§ XY 04 matte “DEVCHAR = $00 8 
EXESGQ"SYSTIME tenenere 8X o% UCBSL_DEVCHAR2 = 0000003¢ 
EXE$GQ- TODCBASE tereeree x 4 UCBSL_DUETIM = 0000 $f 
EXESINTPROCREG tereeeee§ KX 04 UCBSL_LINK = 308 
EXESINIT DEVICE QO0001BF RG 4 UCBSL_STS = 00000064 
EXESPOWERFA Ooboee RG 3 UCBSM_INT = 0000000 
EXESPURT IMCHE 000025F RG 4 UCBSM_ONL INE = 0000001 
EXESREAD TODR tereeeee§ § X 03 UCBSM_POWER = 000000 
EXESREGRESTOR eeeerere x 4 UCBsAATIA = 9 1 
EXESREGSAVE eeeeeree =X 3 UCBSV_MNTVERIP = § 
EXESRESTART 00000000 RG 4 CBSV_MNTVERPND s 0001 
EXESSTARTUPADP eerenere xX 4 UCBSV—VALID = 0 
IOCSCTRLINIT eenerere = X 4 tat “STS = 0000006 
IOC$RELOC_DDT eererere =X 4 VECSL-ADP = 00000014 
I1OC$SCAN_TODB eereeeer x 4 
IOCSUNITINIT eereeere = §6X 4 
IPL$_POWER = 0000001F 
LCK$GQ_BITMAP_EXP eeeeerer xX 6 
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been ennr ee enon ero ea} 


! Psect synopsis ! 


geste em me moomoo wee + 


PSECT name Allocation PSECT No. Attributes 


» ABS . 00000 ( -) 00 ¢ QO.) NOPIC USR CON ABS LCL N 
snes 000 $ ( -) O17 ¢ 1.) NOPIC USR CON ABS LCL NO 
$$$220 0 8 ( ) § ( §°} NOPIC USR CON REL LCL N 
SAE XENONPAGED 00 8 Se ¢ 1.) ( 3.) NOPIC USR CON REL LCL N 
SAAE XENONPAGED 0000274 ( 628.) 04 ¢ 4.) NOPIC USR CON REL LCL 


geen ceoeeracoe ors 


! Performance indicators ! 


er + 


Phase Page faults CPU Time Elapsed Time 


Initialization 35 80 #80: 09.06 00:00:01.77 
Sy plabageee 2 BURG) EE 
Symbol table sort 9 00:00:01.69 8:08 re 
Pass 2 13 Bo 288: $-¢3 0:00:09.81 
Symbol table output "§ Ba: 0:00.09 00:00:00.71 
Psect synopsis output 0:00: 3-8 00:00:00.03 
Cross-reference output 3 00:00:0 9 es Bae 94 
Assembler run totals 65 00:00:16. 0:00:56.56 


The working set Limit was 1650 pages. 

68206 bytes (134 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 60 pages of symbol table space allocated to hold 1163 non-local and local symbols. 
575 source lines were read in Pass 1, producing 20 object records in Pass 2. 

26 pages of virtual memory were used to define 25 macros. 


SOTO OMS RO OO mM we ow + 


Macro Library name Macros defined 


Stitt $ SYS.OBJJLIB.MLB;1 16 
$255$DUA28: CSYSLIBISTARLET.MLB;2 § 
TOTALS (all Libraries) 2 
1256 GETS were required to define 22 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:POWERFAIL/OBJ=OBJ$:POWERFAIL MSRC$:POWERFAIL/UPDATE=(ENHS:POWERFAIL) *EXECMLS/LIB 


OSHR NO NOWRT NOVEC BYTE 
HR WRT NOVEC BYTE 
WRT NOVEC LONG 
WRT NOVEC LONG 


WRT NOVEC PAGE 


CORPORATION 
PROPRIETARY | 
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